home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / src.splitscleft < prev    next >
Text File  |  2007-03-01  |  2KB  |  164 lines
  1. ;--------------------------------;
  2. ;                                ;
  3. ; SRC.SPLITSCLEFT - A COMAL      ;
  4. ;                        PACKAGE ;
  5. ;                                ;
  6. ; BY N.BAKKER ' 104 '-SOFTWARE   ;
  7. ; DUTCH COMAL USERS GROUP        ;
  8. ;                                ;
  9. ; 850418 - 850418                ;
  10. ;                                ;
  11. ;--------------------------------;
  12. ;                                ;
  13.        .OPT NOLIST, ERRORS
  14.  .LIB SYMBOLS
  15. ;
  16. DATTO =Q1
  17. DATFR =Q2
  18. COLTO =Q3
  19. COLFR =Q4
  20. ;
  21. *=$8009
  22. ;
  23.  .BYTE C64
  24.  .WORD END
  25.  .WORD SIGNAL
  26. ;
  27.  .BYTE 11,'SPLITSCLEFT'
  28.  .WORD PROCS,DUMMY
  29.  .BYTE 0
  30. ;
  31. PROCS
  32.  .BYTE 11,'SPLITSCROLL'
  33.  .WORD PCSCRL
  34.  .BYTE 6,'APPEAR'
  35.  .WORD PCAPP
  36.        .BYTE  8,'SET38COL'
  37.  .WORD PCS38
  38.  .BYTE 0
  39. ;
  40. PCSCRL
  41.  .BYTE PROC
  42.  .WORD MCSCRL
  43.  .BYTE 0
  44.  .BYTE ENDPRC
  45. ;
  46. PCAPP
  47.  .BYTE PROC
  48.  .WORD MCAPP
  49.  .BYTE 1
  50.  .BYTE STR+VALUE
  51.  .BYTE ENDPRC
  52. ;
  53. PCS38
  54.  .BYTE PROC
  55.  .WORD MCS38
  56.  .BYTE 1
  57.  .BYTE INT+VALUE
  58.  .BYTE ENDPRC
  59. ;
  60. MCSCRL
  61.  SEI
  62.  LDX #$A0
  63.  LDA #$04
  64.  LDY #$D8
  65.  STX DATTO
  66.  STA DATTO+1
  67.  STX COLTO
  68.  STY COLTO+1
  69.  INX
  70.  STX DATFR
  71.  STA DATFR+1
  72.  STX COLFR
  73.  STY COLFR+1
  74. ;
  75.  LDX #0
  76. NXTLIN
  77.  LDY #0
  78. NXTCOL
  79.  LDA (DATFR),Y
  80.  STA (DATTO),Y
  81.  LDA (COLFR),Y
  82.  STA (COLTO),Y
  83.  INY
  84.  CPY #39
  85.  BNE NXTCOL
  86.  LDA APP,X
  87.  STA (DATTO),Y
  88.  LDA COLOR
  89.  STA (COLTO),Y
  90.  CLC
  91.  LDA DATFR
  92.  ADC #40
  93.  STA DATFR
  94.  STA COLFR
  95.  CLC
  96.  LDA DATTO
  97.  ADC #40
  98.  STA DATTO
  99.  STA COLTO
  100.  BCC NOINC
  101.  INC DATFR+1
  102.  INC COLFR+1
  103.  INC DATTO+1
  104.  INC COLTO+1
  105. NOINC
  106.  INX
  107.  CPX #21
  108.  BNE NXTLIN
  109.  CLI
  110.  RTS
  111. ;
  112. MCAPP
  113.  LDA #1
  114.  JSR FNDPAR
  115.  LDY #2
  116.  LDA (COPY1),Y
  117.  BNE ARGERR
  118.  INY
  119.  LDA (COPY1),Y
  120.  CMP #21
  121.  BNE ARGERR
  122.  TAX
  123. NXT1
  124.  INY
  125.  LDA (COPY1),Y
  126.  STA APP-4,Y
  127.  DEX
  128.  BNE NXT1
  129.  RTS
  130. ;
  131. ARGERR
  132.  LDX #5
  133.  JMP RUNERR
  134. ;
  135. APP .BYTE '                         '
  136. ;
  137. MCS38
  138.  LDA #1
  139.  JSR FNDPAR
  140.  LDY #0
  141.  LDA (COPY1),Y
  142.  INY
  143.  ORA (COPY1),Y
  144.  BEQ UNSET
  145.  LDA VCTRL2
  146.  AND #%11110111
  147.  STA VCTRL2
  148.  RTS
  149. ;
  150. UNSET
  151.  LDA VCTRL2
  152.  ORA #%00001000
  153.  STA VCTRL2
  154.  RTS
  155. ;
  156. SIGNAL
  157.  CPY #ERROR
  158.  BEQ UNSET
  159.  CPY #STOP1
  160.  BEQ UNSET
  161.  RTS
  162. ;
  163. END .END
  164.